home *** CD-ROM | disk | FTP | other *** search
/ JCSM Shareware Collection 1993 November / JCSM Shareware Collection - 1993-11.iso / cl720 / fast278j.lzh / SHUT.F < prev    next >
Text File  |  1980-01-01  |  345b  |  18 lines
  1. ;Shut system, park heads.
  2. #short
  3.  
  4. print bios cr lf "System SHUT activated...";
  5.  
  6. e=0
  7. for h=0 to 3
  8. print bios "  ";chr '0'+h;
  9. dx=h*256+80h
  10. reg dx=dx,cx=6691h,ax=0c01h:int 13h
  11. if carry then print bios "x";:e=1 else print bios chr 251;
  12. next h
  13.  
  14. if e then print bios cr lf "Error!":terminate
  15.  
  16. print bios cr lf lf "Done.";
  17. forever {}
  18.